home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Symbols / s-collect-consecutive < prev    next >
Lisp/Scheme  |  1998-08-11  |  382b  |  19 lines
  1. s-collect-consecutive symbols lengths
  2.  
  3. (setq s-v1 '(a b c))
  4. (setq s-v2 '(d e f g))
  5. (setq s-va '(h i))
  6. (setq s-vc '(j k l))
  7.  
  8. (setq l-v1 '(1/8 -1/8  2/8 -1/8 5/8))
  9. (setq l-v2 '(1/8  1/8 -1/8  2/8 1/8))
  10. (setq l-va '(-2/8  1/8 -5/8  1/8))
  11. (setq l-vc '(-1/8  3/8  1/8  1/8))
  12.  
  13. (s-collect-consecutive
  14.  (list s-v1 s-v2 s-va s-vc)
  15.  (list l-v1 l-v2 l-va l-vc))
  16.  
  17. => (a d e j b h f k c g l i)
  18.  
  19.